<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../_Config.asp" -->
<!--#include file="../_Utils.asp" -->
<%
Session.CodePage=65001

'签名串 示例传参，实际项目请按照字典值排序
Dim ParamsDict
set ParamsDict=CreateObject("Scripting.Dictionary")

ParamsDict.Add "mchId", MchId   '商户ID
ParamsDict.Add "reqTime", GetNowDateStr4Append()   '请求时间, 格式yyyyMMddHHmmss
ParamsDict.Add "version", "1.0"   '版本号, 固定参数1.0

'Md5加密，生成摘要信息
Sign=ParamsDictSign(ParamsDict, MchKey)
ParamsDict.Add "sign", Sign

'请求支付网关并将数据原样返回页面
response.Write PostHTTPPage( (PayHost & "/api/agentpay/query_balance" ), GetUrlStr(ParamsDict))

%>
